CONST
    intstrlength = 7;               {length of a display integer field}

TYPE
    intmode  = (inone, isuplzer, icomma, ishortsup, ishortcom);
    intstr   =  string intstrlength;    {a string  for maximum INTEGER}
